home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 April / 64er_Magazin_94-04_1994_Markt__Technik_de_Side_A.d64 / cbmfont->pfox.zs (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  16 lines
  1. 0 sys58692:poke53280,0:poke53281,0:poke646,5:de=peek(186):print"choose option :
  2. 1.load cbmset in memory
  3. 2.show cbmset in memory
  4. 3.save cbmset as pfoxset
  5. 4.directory
  6. 5.end program
  7. 1 [161]a$:[139]a$[178]""[167]1
  8. 2 [139]a$[178]"1"[137]8
  9. 3 [139]a$[178]"2"[137]9
  10. 4 [139]a$[178]"3"[137]10
  11. 5 [139]a$[178]"4"[167][158]3161:[138]
  12. 6 [139]a$[178]"5"[167][158]64738
  13. 7 [137]1
  14. 8 [158]2671:[133]"filename :";f$:[158]2683:[159]15,de,15:[137]11
  15. 9 [158]2640:[137]0
  16. 10 [133]"give number printfoxset (0-255) :";zs:zs$[178][196](zs):zs$[178][201](zs$,([195](zs$)[171]1)):f$[178]"zs"[170]zs$[170]",p,w":[151]2749,zs:[159]8,de,8,f$:[159]15,de,15:[158]2753:[160]8
  17. 11 [132]15,a,b$,c,d:[160]15:[139]a[178]0[167]0
  18. 12 [153]"defdisk-error : "a;b$c;d:[153]"print<< syspress spaceprint >>
  19. 13 geta$:ifa$=""then13
  20. 14 goto0
  21.